home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / ArrayedCollection.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  4.0 KB  |  174 lines
  1. " --------------------------------------------------------------- "
  2. " Added the with: methods on 04-Apr-2002.                         "
  3. " --------------------------------------------------------------- "
  4.  
  5. Class ArrayedCollection :SequenceableCollection
  6. ! current !
  7. [
  8.     = anArray   ! i !
  9.       
  10.       amigatalk tracingOff.
  11.       
  12.       (self size ~= anArray size) 
  13.          ifTrue: [^ false]. 
  14.             
  15.       i <- 0.
  16.  
  17.       self do: [:x | (x ~= (anArray at: (i <- i + 1)))
  18.                                         ifTrue: [^ false]
  19.                ].
  20.       
  21.       amigatalk tracingOn.
  22.       
  23.       ^ true
  24. |
  25.     at: key ifAbsent: exceptionBlock
  26.  
  27.       ((key <= 0) or: [key > self size])
  28.          ifTrue: [^ exceptionBlock value].
  29.  
  30.       ^ self at: key
  31. |
  32.     coerce: aCollection      ! temp !
  33.  
  34.       temp <- self class new: aCollection size.
  35.  
  36.       temp replaceFrom: 1 to: aCollection size with: aCollection.
  37.  
  38.       ^ temp
  39. |
  40.     copyFrom: start to: stop       ! size temp !
  41.  
  42.       size <- stop - start + 1.
  43.  
  44.       temp <- self class new: size.
  45.  
  46.       temp replaceFrom: 1 to: size with: self startingAt: start.
  47.  
  48.       ^ temp
  49. |
  50.     currentKey
  51.       ^ current
  52. | 
  53.     deepCopy ! newobj !
  54.     
  55.       amigatalk tracingOff.
  56.       
  57.       newobj <- self class new: self size.
  58.  
  59.       (1 to: self size) do: [:i | newobj at: i put: (self at: i) copy ].
  60.  
  61.       amigatalk tracingOff.
  62.       
  63.       ^ newobj
  64. |
  65.     do: aBlock
  66.  
  67.       amigatalk tracingOff.
  68.       
  69.       (1 to: self size) 
  70.           do: [:i | current <- i. 
  71.             aBlock value: (self at: i)].
  72.  
  73.       amigatalk tracingOff.
  74. |
  75.     first
  76.  
  77.       current <- 1.
  78.  
  79.       ^ (current <= self size) 
  80.          ifTrue: [ self at: current]
  81. |
  82.     firstKey
  83.  
  84.       ^ 1
  85. |
  86.     lastKey
  87.  
  88.       ^ self size
  89. |
  90.     next
  91.  
  92.       current <- current + 1.
  93.  
  94.       ^ (current <= self size) 
  95.          ifTrue: [ self at: current]
  96. |
  97.     padTo: length
  98.  
  99.       ^ (self size < length)
  100.           ifTrue: [ self , (self class new: (length - self size) ) ]
  101.          ifFalse: [ self ]
  102. |
  103.     shallowCopy ! newobj !
  104.  
  105.       newobj <- self class new: self size.
  106.  
  107.       (1 to: self size) do: [:i | newobj at: i put: (self at: i) ].
  108.  
  109.       ^ newobj
  110. |
  111.     with: anObject ! newCollection !
  112.  
  113.       " Answer a new instance of ArrayedCollection, containing only anObject."   
  114.          
  115.       newCollection <- self new: 1.   
  116.  
  117.       newCollection at: 1 put: anObject.   
  118.  
  119.       ^ newCollection 
  120. | 
  121.     with: firstObject with: secondObject ! newCollection !
  122.  
  123.       " Answer a new instance of ArrayedCollection, containing firstObject
  124.       * and secondObject.
  125.       "
  126.       newCollection <- self new: 2.
  127.  
  128.       newCollection at: 1 put: firstObject.   
  129.       newCollection at: 2 put: secondObject.   
  130.    
  131.       ^ newCollection 
  132. | 
  133.     with: firstObject with: secondObject with: thirdObject ! newCollection !
  134.  
  135.       " Answer a new instance of ArrayedCollection, 
  136.       * containing only these three objects.
  137.       "   
  138.       newCollection <- self new: 3.   
  139.      
  140.       newCollection at: 1 put: firstObject.   
  141.       newCollection at: 2 put: secondObject.   
  142.       newCollection at: 3 put: thirdObject.   
  143.      
  144.       ^ newCollection 
  145. | 
  146.     with: firstObject with: secondObject with: thirdObject with: fourthObject    
  147.       ! newCollection !
  148.      
  149.       " Answer a new instance of ArrayedCollection, containing the four
  150.       * arguments as the elements.
  151.       "   
  152.       newCollection <- self new: 4.   
  153.      
  154.       newCollection at: 1 put: firstObject.   
  155.       newCollection at: 2 put: secondObject.   
  156.       newCollection at: 3 put: thirdObject.   
  157.       newCollection at: 4 put: fourthObject.   
  158.      
  159.       ^ newCollection 
  160. |     
  161.     withAll: aCollection ! newCollection index !
  162.  
  163.       " Answer a new instance of this class, whose elements are 
  164.       * the elements of aCollection. 
  165.       "   
  166.       newCollection <- self new: aCollection size.   
  167.       index         <- 0.   
  168.      
  169.       aCollection do: [:element | newCollection at: (index := index + 1)
  170.                                                put: element ].   
  171.      
  172.       ^ newCollection 
  173. ]
  174.